home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / database / dasst102.zip / BILLING.SCR next >
Text File  |  1993-03-31  |  3KB  |  139 lines
  1. ;*********************************************************************
  2. ; CompuServe Account Balance Script
  3. ;
  4. ; Demonstrates connecting to and capturing account balance information
  5. ; from CompuServe.  This file contains both verbose and shorthand
  6. ; commands to illustrate the various usages.
  7. ;
  8. ; When the script has completed, the capture file BILLING.DAT will
  9. ; contain the textual information about your account balance.
  10. ;
  11. ; Change this script as necessary for your own environment.
  12. ;*********************************************************************
  13.  
  14. ;
  15. ; Delete the current billing data capture file.  Ensure both the 
  16. ; path and filename are valid.
  17. ;
  18. KILL C:\DASST\BILLING.DAT
  19.  
  20. ;
  21. ; Set capture to the BILLING.DAT file, then turn capture off since we
  22. ; don't want to capture the entire session.
  23. ;
  24. CAPTURE C:\DASST\BILLING.DAT
  25. C N
  26.  
  27. ;
  28. ; Display the script's description to the Terminal display
  29. ;
  30. ECHO ******************************
  31. ECHO * CompuServe Account Balance *
  32. ECHO ******************************
  33.  
  34. ;
  35. ; Establish port settings.  Change these as necessary. By default this
  36. ; command is commented out.
  37. ;
  38. ; Syntax is: baud,parity,data bits,stop bits
  39. ;
  40. ;PORT  19200,E,7,1
  41.  
  42. ;
  43. ; Execute the CompuServe login commands for direct node access.
  44. ;
  45. ; You must first change all occurrences of "7777" information to the
  46. ; appropriate values.
  47. ;
  48. ; Enter the phone number for CompuServe access. (Remember ^M)
  49. ;
  50. Send ATDT 777-7777^M
  51.  
  52. ;
  53. ; Wait for the modem's CONNECT string, wait 2 seconds, issue Control+C,
  54. ; then wait for the user ID prompt.
  55. ;
  56. Wait  CONNECT
  57. Pause 2
  58. Out   ^C
  59. Wait  ID:
  60.  
  61. ;
  62. ; Send your User ID. (Remember ^M)
  63. ;
  64. Send 77777,7777^M
  65.  
  66. ;
  67. ; Wait for the password prompt, then send your password.  We use the
  68. ; OUT command instead of the SEND command because CompuServe WILL NOT
  69. ; echo the password characters - so we can't wait for any data.
  70. ; (Remember ^M)
  71. ;
  72. Wait  Password:
  73. Out   7777777:7777777^M
  74.  
  75. ;
  76. ; Wait for the CompuServe prompt character...
  77. ;
  78. W !
  79.  
  80. ;
  81. ; Go to the CompuServe billing section. (Remember ^M)
  82. ;
  83. S GO BILLING^M
  84.  
  85. ;
  86. ; This is what the prompt should look like at this point...
  87. ;
  88. ;ASSISTANCE(FREE)         BILLING
  89. ;
  90. ;BILLING INFORMATION
  91. ;
  92. ; 1 Current Rates
  93. ; 2 Review Your Charges
  94. ; 3 Direct Debit Status
  95. ; 4 Billing Options Explained
  96. ; 5 Pricing Plans Explained
  97. ; 6 Changing Your Billing Address
  98. ; 7 Changing Your Billing Information
  99. ; 8 Executive Service Option
  100. ; 9 General Billing Information
  101. ;
  102. ;Enter choice !
  103.  
  104. Wait choice !
  105. Send 2^M
  106.  
  107. ;
  108. ; This is what the prompt should look like at this point...
  109. ;
  110. ;CompuServe (FREE) CHARGES
  111. ;
  112. ; 1 Explanation
  113. ; 2 Account Balance
  114. ; 3 Billing History
  115. ;
  116. ;USAGE DETAILS
  117. ; 4 Current activity
  118. ; 5 Previous activity
  119. ; 6 Mail Hardcopy ($)
  120. ;
  121. ;Enter Choice !
  122.  
  123. W hoice !
  124. S 2^M
  125. C Y
  126. W !
  127. C N
  128.  
  129. ;
  130. ; Log off CompuServe
  131. ;
  132. SEND OFF^M
  133. WAIT RIER
  134. Pause 2
  135.  
  136. ECHO ******************************
  137. ECHO *      End of Script         *
  138. ECHO ******************************
  139.